home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 2000 May / MaxiMac 102.iso / KitWeb / Wanadoo / Media / Present.dcr / Scripts_1_Scripts principaux.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  1.3 KB  |  65 lines
  1. on aGoInstall param
  2.   global gInstalls
  3.   set vRacine to aRacine()
  4.   open(vRacine & line param of gInstalls)
  5.   quit()
  6. end
  7.  
  8. on aGoAppli param
  9.   global gApplis
  10.   set vRacine to aRacine()
  11.   open(vRacine & line param of gApplis)
  12.   quit()
  13. end
  14.  
  15. on aGoFormulairePdf
  16.   global gApplis
  17.   set vRacine to aRacine()
  18.   if the machineType = 256 then
  19.     set vAcrobat to 16
  20.   else
  21.     set vAcrobat to 15
  22.   end if
  23.   open(vRacine & line 24 of gApplis, vRacine & line vAcrobat of gApplis)
  24. end
  25.  
  26. on aGoManuelPdf
  27.   global gApplis
  28.   set vRacine to aRacine()
  29.   if the machineType = 256 then
  30.     set vAcrobat to 16
  31.   else
  32.     set vAcrobat to 15
  33.   end if
  34.   open(vRacine & line 25 of gApplis, vRacine & line vAcrobat of gApplis)
  35. end
  36.  
  37. on aGochpPdf
  38.   global gApplis
  39.   set vRacine to aRacine()
  40.   if the machineType = 256 then
  41.     set vAcrobat to 16
  42.     set vChpPdf to 27
  43.   else
  44.     set vAcrobat to 15
  45.     set vChpPdf to 26
  46.   end if
  47.   open(vRacine & line vChpPdf of gApplis, vRacine & line vAcrobat of gApplis)
  48. end
  49.  
  50. on aGoCybPdf
  51.   global gApplis
  52.   set vRacine to aRacine()
  53.   if the machineType = 256 then
  54.     set vAcrobat to 16
  55.     set vCybPdf to 29
  56.   end if
  57.   open(vRacine & line vCybPdf of gApplis, vRacine & line vAcrobat of gApplis)
  58. end
  59.  
  60. on aRacine
  61.   set vNum to the number of chars in the pathName
  62.   set vRac to char 1 to vNum - 6 of the pathName
  63.   return vRac
  64. end
  65.